home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3d_vb / form3.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  73 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form3"
  6.    ClientHeight    =   2565
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   4110
  10.    Height          =   2970
  11.    Icon            =   FORM3.FRX:0000
  12.    Left            =   1035
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form3"
  15.    ScaleHeight     =   2565
  16.    ScaleWidth      =   4110
  17.    Top             =   1140
  18.    Width           =   4230
  19.    Begin Timer Timer1 
  20.       Enabled         =   0   'False
  21.       Interval        =   1000
  22.       Left            =   240
  23.       Top             =   3120
  24.    End
  25.    Begin PictureBox Picture1 
  26.       BackColor       =   &H00C0C0C0&
  27.       BorderStyle     =   0  'None
  28.       Height          =   975
  29.       Left            =   480
  30.       ScaleHeight     =   975
  31.       ScaleWidth      =   2895
  32.       TabIndex        =   0
  33.       Top             =   240
  34.       Width           =   2895
  35.    End
  36. End
  37.  
  38. Sub Form_Load ()
  39.     Screen.MousePointer = 11
  40.     Form3.Left = (Screen.Width - Form3.Width) / 2
  41.     Form3.Top = (Screen.Height - Form3.Height) / 2
  42. Timer1.Enabled = True
  43. End Sub
  44.  
  45. Sub Form_Paint ()
  46.     
  47.     Picture1.Left = (Form3.ScaleWidth - Picture1.Width) / 2
  48.     Picture1.FontSize = 18
  49.     FormBorder Form3
  50.     ShadowPicFrame Picture1, 1
  51.     Text$ = "3-D4VB"
  52.     xPos% = (Picture1.ScaleWidth - Picture1.TextWidth(Text$)) / 2
  53.     yPos% = 240
  54.     RaisedPicText Picture1, Text$, xPos%, yPos%, BLUE
  55.     Form3.FontName = "Tms Rmn"
  56.     LabelBoxOnFrm Picture1, Form3, "A 3-D Subroutine Library", 2, 2, BLUE, ETCHED
  57.     Text$ = "for Microsoft Visual Basic"
  58.     xPos% = (Form3.ScaleWidth - TextWidth(Text$)) / 2
  59.     yPos% = Form3.ScaleHeight - ((Form3.TextHeight("I") * 5) + 60)
  60.     EtchedFrmText Form3, Text$, xPos%, yPos%, BLUE
  61.     Text$ = Chr$(169) + " Copyright, 1992 - LAN Services"
  62.     xPos% = (Form3.ScaleWidth - TextWidth(Text$)) / 2
  63.     yPos% = Form3.ScaleHeight - ((Form3.TextHeight("I") * 2) + 60)
  64.     EtchedFrmText Form3, Text$, xPos%, yPos%, BLUE
  65.  
  66. End Sub
  67.  
  68. Sub Timer1_Timer ()
  69.   Timer1.Enabled = False
  70.   Load Form1
  71. End Sub
  72.  
  73.